home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1998 #4
/
Amiga Plus CD - 1998 - No. 4.iso
/
pd
/
musik
/
mrmpeg
/
save.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-01-02
|
1KB
|
31 lines
/* Save.rexx */
options results; parse arg mode; address MrMPEG
MUIA_Cycle_Active = 0x80421788
if mode = 1 then filename = 'ENVARC:MrMPEG.prefs'
else filename = 'ENV:MrMPEG.prefs'
if open('SaveFile', filename, 'w') = 1 then do
popasl ID PATH; writeln('SaveFile', result)
popasl ID FPATH; writeln('SaveFile', result)
check ID MONO; writeln('SaveFile', result)
check ID FILT; writeln('SaveFile', result)
knob ID VOLM; writeln('SaveFile', result)
cycle ID DIVS ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
cycle ID QUAL ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
slider ID PRIO; writeln('SaveFile', result)
cycle ID MAXF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
cycle ID MIXF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
cycle ID REPT ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
check ID EJCT; writeln('SaveFile', result)
check ID ADVC; writeln('SaveFile', result)
check ID RAND; writeln('SaveFile', result)
cycle ID ABUF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
cycle ID IBUF ATTRS MUIA_Cycle_Active; writeln('SaveFile', result)
check ID UAHI; writeln('SaveFile', result)
text ID AHID; writeln('SaveFile', result)
call close('SaveFile')
end
return